1 POKE53280,14:POKE646,14:POKE53281,6
2 PRINT"[147]THIS LOADER POKES THE DATA STATEMENTS"
3 PRINT"INTO MEMORY THEN MAKES THE MACHINE CODE"
4 PRINT"FILE NAMED 'ADDER.49152' AND SAVES IT TO"
5 PRINT"DISK"
6 PRINT"ANY KEY TO CONTINUE..."
7 POKE198,0:WAIT198,1:POKE198,0
10 REM -- ADDERLOADER: BASIC LOADER FOR LOADER ADDER @ 49152
20 PRINT"[147] BASIC LOADER FOR LOADER ADDER @ 49152
30 [153]" PLEASE WAIT..."
100 [131]160,000,185,023,192,240,013,032,210,255
110 [131]200,192,000,208,243,238,004,192,208,238,076,165,193
120 [131]147,017,032,032,032,032,032:[143] [CLR][DN][5SPC]
130 [131]018,032,032,032,032,032,032,032,032,032:[143] [RVON][9SPC]
140 [131]076,079,065,068,069,082,065,068,068,069:[143] LOADERADDE
150 [131]082,032,032,032,032,032,032,032,032,032:[143] R[9SPC]
160 [131]017,017,013,032,084,072,073,083,032,080:[143] [2DN][RET] THIS P
170 [131]082,079,071,082,065,077,077,069,032,076:[143] ROGRAMMEL
180 [131]079,065,068,083,032,065,032,080,082,069:[143] OADS A PRE
190 [131]076,079,065,068,069,082,032,077,065,068:[143] LOADER MAD
200 [131]069,032,032,032,066,089,032,065,078,032:[143] E   BY AN[SPC]
210 [131]065,067,084,073,079,078,032,082,069,080:[143] ACTION REP
220 [131]076,065,089,032,067,065,082,084,082,073:[143] LAY CARTRI
230 [131]068,071,069,044,032,065,078,068,013,032:[143] DGE, AND[RET][SPC]
240 [131]065,068,068,083,032,084,079,032,073,084:[143] ADDS TO IT
250 [131]032,065,078,032,079,082,068,073,078,065:[143]  AN ORDINA
260 [131]082,089,032,076,079,065,068,073,078,071:[143] RY LOADING
270 [131]032,077,079,068,085,076,069,013,032,087:[143]  MODULE[RET] W
280 [131]072,073,067,072,032,087,079,082,075,083:[143] HICH WORKS
290 [131]032,087,073,084,072,032,079,082,032,087:[143]  WITH OR W
300 [131]073,084,072,079,085,084,032,065,078,089:[143] ITHOUT ANY
310 [131]032,070,065,083,084,045,013,032,076,079:[143]  FAST-[RET] LO
320 [131]065,068,069,082,046,032,073,084,032,065:[143] ADER. IT A
330 [131]083,083,085,077,069,083,032,084,072,065:[143] SSUMES THA
340 [131]084,032,073,078,032,084,072,069,032,079:[143] T IN THE O
350 [131]082,073,071,073,045,013,032,078,065,076:[143] RIGI-[RET] NAL
360 [131]032,080,082,069,076,079,065,068,069,082:[143]  PRELOADER
370 [131]044,032,074,077,080,032,036,070,070,068:[143] , JMP $FFD
380 [131]053,032,079,067,067,085,082,083,032,065:[143] 5 OCCURS A
390 [131]084,013,032,036,048,056,051,053,046,032:[143] T[RET] $0835.[SPC]
400 [131]032,073,084,032,083,085,066,083,084,073:[143]  IT SUBSTI
410 [131]084,085,084,069,083,032,070,079,082,032:[143] TUTES FOR[SPC]
420 [131]084,072,065,084,044,013,032,074,077,080:[143] THAT,[RET] JMP
430 [131]032,036,091,078,069,087,032,066,065,032:[143]  $[NEW BA[SPC]
440 [131]079,070,032,084,072,073,083,032,076,079:[143] OF THIS LO
450 [131]065,068,069,082,093,046,013,017,017,032:[143] ADER].[RET][2DN][SPC]
460 [131]078,079,087,032,080,076,069,065,083,069:[143] NOW PLEASE
470 [131]032,073,078,083,084,065,076,076,032,032:[143]  INSTALL[2SPC]
480 [131]084,072,069,032,068,073,083,075,032,073:[143] THE DISK I
490 [131]078,032,084,072,069,013,032,068,082,073:[143] N THE[RET] DRI
500 [131]086,069,046,013,013,045,062,032,080,082:[143] VE.[2RET]-> PR
510 [131]079,071,046,032,078,065,077,069,063,032:[143] OG. NAME?
520 [131]000,160,000,032,207,255,153,219,193,201:[143] [THIS ZERO TERMINATES TEXT]
530 [131]013,240,003,200,208,243,152,141,199,193
540 [131]032,190,193,076,234,193,169,008,170,160
550 [131]001,032,186,255,169,000,162,219,160,193
560 [131]032,189,255,234,169,000,032,213,255,134
570 [131]045,132,046,096,000,000,132,046,096,000
580 [131]000,160,001,032,186,255,169,000,162,000
590 [131]238,199,193,169,049,141,218,193,024,165:[143] 049 = "1" PREFIX MAIN PRG
600 [131]045,105,028,141,201,193,165,046,105,000
610 [131]141,203,193,169,076,141,210,193,160,000
620 [131]185,190,193,145,045,200,192,043,240,002
630 [131]208,244,165,045,141,054,008,165,046,141:[143] 054,008 = LB,HB OF $0836
640 [131]055,008,160,000,185,097,194,240,013,032:[143] 055,008 = LB,HB OF $0837
645 [143] $0835 WAS JMP $FFD5. THIS CHANGES THE OPERANDS TO LB,HB OF PRELOADER EA.
646 [143] IF THAT JMP $FFD5 IS AT A DIFFERENT LOCATION, MERELY CHANGE AS ABOVE.
650 [131]210,255,200,192,000,208,243,238,034,194
660 [131]208,238,032,207,255,201,089,240,001,096
670 [131]169,043,141,218,193,169,218,141,201,193:[143] 043 = "+" PREFIX NEW LOADER
680 [131]169,193,141,203,193,169,096,141,207,193
690 [131]024,165,045,105,045,133,045,165,046,105
700 [131]000,133,046,032,190,193,076,089,225
710 [131]147,017,032,032,032,032,032,018,032,032,032:[143] [CLR][DN][5SPC][RV][3SPC
720 [131]032,032,032,032,032,032,018,083,065,086:[143] [6SPC][RVON]SAV
730 [131]069,032,079,080,084,073,079,078,032,032:[143] E OPTION[2SPC]
740 [131]032,032,032,018,032,032,032,032,013,017:[143] [3SPC][RVON][4SPC][RET][DN]
750 [131]017,032,073,070,032,083,065,086,069,068:[143] [DN] IF SAVED
760 [131]044,032,084,072,069,032,069,088,080,065:[143] , THE EXPA
770 [131]078,068,069,068,032,076,079,065,068,069:[143] DED LOADE
780 [131]082,032,087,073,076,076,013,032,066,069:[143] R WILL[RET] BE
790 [131]065,082,032,065,032,080,082,069,070,073:[143] AR A PREFI
800 [131]088,044,032,034,043,034,032,066,069,070:[143] X, "+" BEF
810 [131]079,082,069,032,084,072,069,032,079,082:[143] ORE THE OR
820 [131]073,071,073,078,065,076,013,032,078,065:[143] IGINAL[RET] NA
830 [131]077,069,046,032,084,072,069,032,077,065:[143] ME. THE MA
840 [131]073,078,032,080,082,071,032,084,079,032:[143] IN PRG TO[SPC]
850 [131]066,069,032,076,079,065,068,069,068,032:[143] BE LOADED
860 [131]077,085,083,084,013,032,066,069,065,082:[143] MUST[RET] BEAR
870 [131]032,065,032,034,049,034,032,080,082,069:[143]  A "1" PRE
880 [131]070,073,088,046,017,013,032,083,065,086:[143] FIX.[DN][RET] SAV
890 [131]069,032,040,089,047,078,041,063,032,000,000:[143] E (Y/N)?[SPC][TERM.0]
900 [129]X[178]49152[164]49952:[135]Y:[151]X,Y:[130]
920 Q$[178][199](34):[153]:[153]" (1) ACTIVATE
930 PRINT" (2) SAVE TO DISK AS "Q$"ADDER.49152"Q$""
940 GETA$:IFA$=""THEN940
950 ONVAL(A$)GOTO960,970:GOTO950
960 SYS49152
970 OPEN1,8,1,"ADDER.49152":PRINT" SAVING "Q$"ADDER.49152"Q$
980 PRINT#1,CHR$(0);CHR$(192);:FORN=49152TO49957
990 PRINT#1,CHR$(PEEK(N));:NEXT:CLOSE1:PRINT:PRINT" DONE!":END